object FrmOrganizarFavoritos: TFrmOrganizarFavoritos
  Left = 429
  Top = 138
  BorderStyle = bsSingle
  Caption = 'Organizar Favoritos...'
  ClientHeight = 282
  ClientWidth = 361
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 200
    Width = 28
    Height = 13
    Caption = 'Nome'
    FocusControl = dbedtNome
  end
  object dbedtNome: TDBEdit
    Left = 8
    Top = 216
    Width = 265
    Height = 21
    DataField = 'MNF_DESCRICAO'
    DataSource = dtsConsulta
    Enabled = False
    TabOrder = 1
  end
  object btnCima: TBitBtn
    Left = 280
    Top = 8
    Width = 75
    Height = 25
    TabOrder = 2
    OnClick = btnCimaClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
      3333333333777F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
      3333333777737777F333333099999990333333373F3333373333333309999903
      333333337F33337F33333333099999033333333373F333733333333330999033
      3333333337F337F3333333333099903333333333373F37333333333333090333
      33333333337F7F33333333333309033333333333337373333333333333303333
      333333333337F333333333333330333333333333333733333333}
    NumGlyphs = 2
  end
  object btnBaixo: TBitBtn
    Left = 280
    Top = 32
    Width = 75
    Height = 25
    TabOrder = 3
    OnClick = btnBaixoClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337F33333333333333033333333333333373F333333333333090333
      33333333337F7F33333333333309033333333333337373F33333333330999033
      3333333337F337F33333333330999033333333333733373F3333333309999903
      333333337F33337F33333333099999033333333373333373F333333099999990
      33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333309033333333333337F7F333333333333090333
      33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
  end
  object dbgdConsulta: TDBGrid
    Left = 8
    Top = 8
    Width = 265
    Height = 185
    DataSource = dtsConsulta
    Options = [dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'MNF_DESCRICAO'
        Visible = True
      end>
  end
  object btnExcluir: TBitBtn
    Left = 280
    Top = 64
    Width = 75
    Height = 25
    Caption = '&Excluir'
    Enabled = False
    TabOrder = 4
    OnClick = btnExcluirClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object btnOK: TBitBtn
    Left = 200
    Top = 248
    Width = 75
    Height = 25
    TabOrder = 5
    OnClick = btnOKClick
    Kind = bkOK
  end
  object btnCancelar: TBitBtn
    Left = 280
    Top = 248
    Width = 75
    Height = 25
    Caption = 'Cancelar'
    TabOrder = 6
    Kind = bkCancel
  end
  object cdsConsulta: TSQLClientDataSet
    CommandText = 
      'select * from MENUS_FAVORITOS'#13#10'where usu_codigo = :pUsuario'#13#10'ord' +
      'er by mnf_sequencial'
    Aggregates = <>
    Options = [poAllowMultiRecordUpdates, poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pUsuario'
        ParamType = ptInput
      end>
    AfterDelete = cdsConsultaAfterDelete
    DBConnection = DtmGeral.ConexaoBanco
    Left = 96
    Top = 40
    object cdsConsultaUSU_CODIGO: TStringField
      FieldName = 'USU_CODIGO'
      Required = True
      Size = 3
    end
    object cdsConsultaMEN_CODIGO: TIntegerField
      FieldName = 'MEN_CODIGO'
      Required = True
    end
    object cdsConsultaMNF_DESCRICAO: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'MNF_DESCRICAO'
      Required = True
      Size = 40
    end
    object cdsConsultaMNF_SEQUENCIAL: TIntegerField
      DisplayLabel = 'Seq'
      FieldName = 'MNF_SEQUENCIAL'
      Required = True
    end
  end
  object dtsConsulta: TDataSource
    DataSet = cdsConsulta
    Left = 128
    Top = 40
  end
end
